home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilenus / marxmenu / menus.exe / OPERAPC.MNU < prev    next >
Encoding:
Text File  |  1990-01-31  |  44.3 KB  |  1,372 lines
  1. #Var MoveCount = 1
  2. $Var YesNo = ''
  3. $Var RunType = 'S'
  4.  
  5. BlankTime 2
  6. BlankMessage = 'CA-OPERA/PC Demonstration'
  7.  
  8. Procedure AskYesNo
  9.   Writeln '   '
  10.   Write   '  Press SpaceBar to continue..'
  11.   YesNo = ''
  12.   repeat
  13.      YesNo = ReadKey
  14.      if YesNo = char(27) then ExitMenu
  15.      if YesNo = ' ' then YesNo = 'Yes'
  16.   until length(YesNo) > 1
  17. EndProc
  18.  
  19. Procedure WaitForSpace
  20.   YesNo = ''
  21.   repeat
  22.      YesNo = ReadKey
  23.      if YesNo = char(27) then ExitMenu
  24.      if YesNo = ' ' then YesNo = 'Yes'
  25.   until length(YesNo) > 1
  26. EndProc
  27.  
  28. Procedure TextWindowHigh
  29.   ExplodeDelay 50
  30.   BoxBorderColor Red Blue
  31.   BoxInsideColor Yellow Blue
  32.   BoxHeaderColor Red White
  33.   BlockBox
  34.   DrawBox 38 2 42 16
  35.   TextColor Yellow Blue
  36. EndProc
  37.  
  38. Procedure TextWindowLow
  39.   ExplodeDelay 50
  40.   BoxBorderColor Red Blue
  41.   BoxInsideColor Yellow Blue
  42.   BoxHeaderColor Red White
  43.   BlockBox
  44.   DrawBox 38 9 42 16
  45.   TextColor Yellow Blue
  46. EndProc
  47.  
  48. Procedure TextWindowBig
  49.   ExplodeDelay 20
  50.   BoxBorderColor Red Blue
  51.   BoxInsideColor Yellow Blue
  52.   BoxHeaderColor Red White
  53.   BlockBox
  54.   DrawBox 5 14 70 10
  55.   TextColor Yellow Blue
  56. EndProc
  57.  
  58. Procedure TextWindowTop
  59.   ExplodeDelay 20
  60.   BoxBorderColor Red Blue
  61.   BoxInsideColor Yellow Blue
  62.   BoxHeaderColor Red White
  63.   BlockBox
  64.   DrawBox 5 3 70 10
  65.   TextColor Yellow Blue
  66. EndProc
  67.  
  68. Procedure TextWindow
  69.   ExplodeDelay 50
  70.   BoxBorderColor Red Blue
  71.   BoxInsideColor Yellow Blue
  72.   BoxHeaderColor Red White
  73.   BlockBox
  74. EndProc
  75.  
  76. Procedure FullWindow
  77.   ExplodeDelay 10
  78.   NoBoxBorder
  79.   BoxInsideColor Grey Blue
  80.   DrawBox 1 1 80 25
  81.   TextColor Black Grey
  82. EndProc
  83.  
  84. Procedure MaintMenu
  85.    Shadow On
  86.    DoubleLineBox
  87.    BoxBorderColor Black Grey
  88.    BoxInsideColor Black Grey
  89.  
  90.    DrawBox 25 3 31 18
  91.  
  92.    Writeln                  ' Operator Console Selection'
  93.    Writeln                  '  System Console Selection'
  94.    Writeln                  '                '
  95.    Writeln                  '   Pager List Maintenance'
  96.    Writeln                  '   Pager Entry Definitions'
  97.    Writeln                  '                 '
  98.    Writeln                  ' Dialup Access Configuration'
  99.    Writeln                  '   Connection Definitions'
  100.    Writeln                  '                '
  101.    Writeln                  '  CA-OPERA/PC Configuration'
  102.    Writeln                  '                '
  103.    Writeln                  '      Script Generation'
  104.    Writeln                  '      Edit Script File'
  105.    Writeln                  '        Replay Script'
  106.    Writeln                  '                '
  107.    Write                    '     View/Print Log File'
  108. EndProc
  109.  
  110. Shadow On
  111. ExplodeDelay 20
  112. BoxBorderColor Red Blue
  113. BoxInsideColor White Blue
  114. BoxHeaderColor Red White
  115. BlockBox
  116. ClearScreen
  117.  
  118. ; ^SkipIntro
  119.  
  120. Drawbox 36 19 44 4
  121. Writeln ' C O M P U T E R  A S S O C I A T E S (R)'
  122. Write   '       Software superior by design.'
  123. Wait 500
  124.  
  125. MoveCount = 1
  126. While MoveCount < 18
  127.       MoveWindow -1 -1
  128.       MoveCount = MoveCount + 1
  129.       Wait 1
  130. EndWhile
  131. Wait 400
  132.  
  133. DrawBox 40 20 35 3
  134. WriteCenter 'CA-OPERA(tm)/PC DEMONSTRATION'
  135. Wait 200
  136.  
  137. MoveCount = 1
  138. While MoveCount < 13
  139.       MoveWindow -1 -1
  140.       MoveCount = MoveCount + 1
  141.       Wait 1
  142. EndWhile
  143. MoveCount = 1
  144. While MoveCount < 5
  145.       MoveWindow -1 1
  146.       MoveCount = MoveCount + 1
  147.       Wait 1
  148. EndWhile
  149. Wait 200
  150.  
  151. DrawBox 36 18 44 7
  152. Writeln '  This demonstration made possible by:  '
  153. Writeln '  '
  154. Writeln '          Computer Tyme, Inc.           '
  155. Writeln '               makers of                '
  156. Write   '              MarxMenu(tm)              '
  157. Wait 400
  158. Writeln '  '
  159. Wait 70
  160. Writeln '  '
  161. Wait 70
  162. Writeln '  '
  163. Wait 150
  164. Writeln '           Computer Tyme, Inc.           '
  165. Writeln ' 216 S. Glenstone  Springfield, MO 65802'
  166. Writeln '             (800) 548-5353              '
  167. Wait 400
  168. ; AskYesNo
  169. EraseTopWindow
  170. EraseTopWindow
  171. Wait 250
  172. EraseTopWindow
  173. :SkipIntro
  174.  
  175. Shadow Off
  176. TextColor White Blue
  177. ClearScreen
  178. TextColor Black Grey
  179. ClearLine
  180. Write 'CAPC0000                     System Status Display                   CA-OPERA/PC'
  181. TextColor White Blue
  182. GotoXY 1 24
  183. Write 'Command ===>'
  184. TextColor Black Grey
  185. GotoXY 1 25
  186. ClearLine
  187. Write 'Scanning ...'
  188. GotoXY 30 8
  189. Write (Char(179))
  190. GotoXY 30 9
  191. Write (Char(179))
  192. GotoXY 50 8
  193. Write (Char(179))
  194. GotoXY 50 9
  195. Write (Char(179))
  196. GotoXY 40 17
  197. Write (Char(179))
  198. GotoXY 40 18
  199. Write (Char(179))
  200. GotoXY 21 13
  201. Write (Char(196))
  202. GotoXY 22 13
  203. Write (Char(196))
  204. GotoXY 59 13
  205. Write (Char(196))
  206. GotoXY 60 13
  207. Write (Char(196))
  208. ExplodeDelay 0
  209. DoubleLineBox
  210. BoxBorderColor Black Grey
  211. BoxInsideColor Black Grey
  212. InverseColor White Red
  213.  
  214. DrawBox 21 4 20 4
  215. Writeln ' Operator Console'
  216. GotoXY  6 2
  217. TextColor White Green
  218. Write   ' Active '
  219.  
  220. DrawBox 41 4 20 4
  221. Writeln '  System Console '
  222. GotoXY  6 2
  223. TextColor White Green
  224. Write   ' Active '
  225.  
  226. DrawBox 28 19 24 4
  227. Writeln '    Control Point '
  228. GotoXY  6 2
  229. TextColor White Red
  230. Write   ' Not Active '
  231.  
  232. DrawBox 2 11 19 5
  233. Writeln ' Paging         '
  234. Writeln ' Remote         '
  235. Write   ' Caller         '
  236. TextColor White Green
  237. GotoXY  10 1
  238. Write ' Ready '
  239. GotoXY  10 2
  240. Write ' Ready '
  241.  
  242. DrawBox 61 12 19 4
  243. Writeln ' Local          '
  244. Write   ' Caller         '
  245. TextColor White Green
  246. GotoXY  10 1
  247. Write ' Ready '
  248.  
  249. DrawBox 23 10 36 7
  250. TextColor White Blue
  251. GotoXY  11 3
  252. Write ' CA-OPERA/PC '
  253. TextColor White Green
  254. GotoXY  1 3
  255. Write ' COM1 '
  256. GotoXY  29 3
  257. Write ' LPT1 '
  258. GotoXY  15 5
  259. Write ' IXM1 '
  260. GotoXY  5 1
  261. Write ' IXM3 '
  262. GotoXY  24 1
  263. Write ' IXM2 '
  264.  
  265. Wait 200
  266. ExplodeDelay 20
  267.  
  268. TextWindow
  269. DrawBox 25 20 35 4
  270. TextColor Yellow Blue
  271.  
  272. AskYesNo
  273. if YesNo = 'No' then ExitMenu
  274.     EraseTopWindow
  275. ; ^SkipAhead                          ;* * * * * * * * * * * * * * * * *
  276.  
  277. BoxHeader 'CA-OPERA/PC'
  278. TextWindowLow
  279. Writeln '     '
  280. Writeln ' CA-OPERA/PC:  A PC-based Workstation'
  281. Writeln ' which extends the automation and'
  282. Writeln ' administration of console and'
  283. Writeln ' message activity beyond the scope'
  284. Writeln ' and functionality of even the'
  285. Writeln ' most powerful mainframe-based'
  286. Writeln ' automation system.'
  287.  
  288. AskYesNo
  289. if YesNo = 'No' then ExitMenu
  290.     EraseTopWindow
  291.  
  292. BoxHeader 'CA-OPERA/PC'
  293. TextWindowHigh
  294. Writeln '     '
  295. Writeln ' Even the most powerful mainframe'
  296. Writeln ' console automation systems cannot'
  297. Writeln ' IML/IPL the operating systems on'
  298. Writeln ' which they depend. They are unable '
  299. Writeln ' to communicate beyond their system'
  300. Writeln ' or network boundries and they do'
  301. Writeln ' not provide a monitor or control'
  302. Writeln ' facility from locations not a part'
  303. Writeln ' of the operating system or its'
  304. Writeln ' network.'
  305.  
  306. AskYesNo
  307. if YesNo = 'No' then ExitMenu
  308.    EraseTopWindow
  309.  
  310. BoxHeader 'CA-OPERA/PC'
  311. TextWindowLow
  312. Writeln '     '
  313. Writeln ' CA-OPERA/PC can:'
  314. Writeln '     '
  315. Writeln ' Perform unattended IML/IPL and'
  316. Writeln ' shut-down procedures when rule-based'
  317. Writeln ' criteria are met.'
  318. Writeln '     '
  319. Writeln ' Key events such as critical subsystem'
  320. Writeln ' or network failures can be detected'
  321. Writeln ' and a predetirmined set of corrective'
  322. Writeln ' actions can be taken immediately.'
  323.  
  324. AskYesNo
  325. if YesNo = 'No' then ExitMenu
  326.     EraseTopWindow
  327.  
  328. BoxHeader 'CA-OPERA/PC'
  329. TextWindowHigh
  330. Writeln '     '
  331. Writeln ' CA-OPERA/PC can:'
  332. Writeln '     '
  333. Writeln ' Notify key personnel, via pager, of'
  334. Writeln ' critical events and system status.'
  335. Writeln '     '
  336. Writeln ' Information such as event type and'
  337. Writeln ' on-going recovery status can be'
  338. Writeln ' broadcast to page recipient.'
  339.  
  340. AskYesNo
  341. if YesNo = 'No' then ExitMenu
  342.     EraseTopWindow
  343.  
  344. BoxHeader 'CA-OPERA/PC'
  345. TextWindowLow
  346. Writeln '     '
  347. Writeln ' CA-OPERA/PC can:'
  348. Writeln '     '
  349. Writeln ' Provide secure remote dial-up'
  350. Writeln ' access to all CA-OPERA/PC monitoring'
  351. Writeln ' and control facilities.'
  352. Writeln '     '
  353. Writeln ' With CA-OPERA/PC, you could monitor'
  354. Writeln ' and control an entire data center or'
  355. Writeln ' network from any telephone in the'
  356. Writeln ' world!
  357.  
  358. AskYesNo
  359. if YesNo = 'No' then ExitMenu
  360.     EraseTopWindow
  361.  
  362.  
  363. RollWindow 5
  364. MoveCount = 1
  365. While MoveCount < 5
  366.   GotoXY 2 1
  367.   TextColor White Red
  368.   Write 'Operator Console'
  369.   Wait 40
  370.   GotoXY 2 1
  371.   TextColor Black Grey
  372.   Write 'Operator Console'
  373.   Wait 40
  374.   MoveCount = MoveCount + 1
  375. EndWhile
  376.   GotoXY 2 1
  377.   TextColor White Red
  378.   Write 'Operator Console'
  379. Wait 150
  380.  
  381. NoBoxBorder
  382. ExplodeDelay 10
  383. BoxInsideColor Grey Blue
  384. DrawBox 1 1 80 24
  385. Writeln '    '
  386. Writeln ' 01 BG-000 JOB ABCPAY'
  387. Wait 20
  388. Writeln ' 02 BG-000 JOB ABCPAY  EOJ  DURATION 00:06:19'
  389. Wait 40
  390. Writeln ' 03 BG-000 JOB XYZPAY'
  391. Wait 20
  392. TextColor White Blue
  393. Writeln ' 04 BG-000 0407DD44 UNABLE TO LOCATE PAYROLL DATABASE'
  394. Wait 20
  395. Writeln ' 05 BG-000 0407DD99 ENTER CANCEL OR RETRY'
  396. Wait 20
  397. TextColor Grey Blue
  398. Writeln ' 06 BG-000 JOB XYZPAY  EOJ  DURATION 01:22:34'
  399. Wait 40
  400. Writeln ' 07 F1-001 0192497A   *SPOOL SPACE EXAUSTED*'
  401. Wait 20
  402. Writeln ' 08 F1-001 0192499A   *SPOOL ARCHIVE STARTED*'
  403. Writeln ' 09'
  404. Writeln ' 10'
  405. Writeln ' 11'
  406. Writeln ' 12'
  407. Writeln ' 13'
  408. Writeln ' 14'
  409. Writeln ' 15'
  410. Writeln ' 16'
  411. Writeln ' 17'
  412. Writeln ' 18'
  413. Writeln ' 19'
  414. Writeln ' 20'
  415. Wait 250
  416.  
  417. BoxBorderColor Red Blue
  418. BoxInsideColor Yellow Blue
  419. BoxHeaderColor Red White
  420. BlockBox
  421.  
  422. BoxHeader 'Console Scanning'
  423. TextWindowLow
  424. Writeln '     '
  425. Writeln ' CA-OPERA/PC can:'
  426. Writeln '     '
  427. Writeln ' Scan the System or Operator'
  428. Writeln ' Console for a user-defined event'
  429. Writeln ' and take immediate action.'
  430. Writeln '     '
  431. Writeln ' In the case of a critical job'
  432. Writeln ' failure, a page might be issued'
  433. Writeln ' to the person responsible so that'
  434. Writeln ' corrective action can be initiated'
  435. Writeln ' quickly.'
  436.  
  437. AskYesNo
  438. if YesNo = 'No' then ExitMenu
  439.     EraseTopWindow
  440.     EraseTopWindow
  441. Wait 250
  442.  
  443. BoxHeader  'CA-OPERA/PC'
  444. TextWindowLow
  445. Writeln '    '
  446. Writeln " CA-OPERA's easy-to-use, menu-driven"
  447. Writeln ' design requires no programming'
  448. Writeln ' knowledge, no complicated commands.'
  449. Writeln '    '
  450. Writeln ' Simply Point-and-Shoot or fill in'
  451. Writeln " the blanks. That's it!"
  452. Writeln '    '
  453. Writeln '    '
  454.  
  455. AskYesNo
  456. if YesNo = 'No' then ExitMenu
  457.     EraseTopWindow
  458. Wait 150
  459.  
  460.  
  461. :SkipAhead                   ;******* * * * * * * * * * * * * * * * * * *
  462.  
  463. FullWindow
  464. Write 'CAPC1000                     Primary Selection Menu                  CA-OPERA/PC'
  465. GotoXY 1 24
  466. Write 'F1-Help                             F3-Exit                              F4-Quit'
  467. TextColor White Blue
  468. GotoXY 1 22
  469. Write '         Hilight the required CA-OPERA/PC function, then press ENTER'
  470.  
  471. MaintMenu                     ;CA-OPERA/PC Maint Menu  **************
  472.  
  473. ; ^SkipMore                     ; *************************************
  474.  
  475.  
  476. MoveCount = 1
  477. While MoveCount < 5
  478.   GotoXY 1 1
  479.   TextColor Yellow Red
  480.   Write                    ' Operator Console Selection'
  481.   Wait 40
  482.   GotoXY 1 1
  483.   TextColor Black Grey
  484.   Write                    ' Operator Console Selection'
  485.   Wait 40
  486.   MoveCount = MoveCount + 1
  487. EndWhile
  488.   GotoXY 1 1
  489.   TextColor Yellow Red
  490.   Write                    ' Operator Console Selection'
  491. Wait 200
  492.  
  493. FullWindow
  494. Write 'CAPC1010                   Operator Console Selection                CA-OPERA/PC'
  495. GotoXY 1 24
  496. Write 'F1-Help        F3-Save       F4-Quit        F5-Add       F6-Copy       F9-Delete'
  497. GotoXY 1 2
  498.  
  499. TextColor Grey Blue
  500. Writeln '    Message   Scan Text                  Days     Begin   End   Defer Susp     '
  501. Writeln '    ────────  ─────────────────────────  ───────  ─────  ─────  ───── ─────    '
  502. Writeln '    %time                                SMTWTFS  00:00  00:00                 '
  503. Writeln '    %time                                .MTWTF.  12:30  12:30                 '
  504. Writeln '    %time                                .MTWTF.  17:00  17:00                 '
  505. TextColor White Blue
  506. Writeln '   0407DD44  UNABLE TO LOCATE PAYROLL   SMTWTFS  17:00  22:00                '
  507. TextColor Grey Blue
  508. Writeln '    //        PAUSE this will lock UP                              1           '
  509. Writeln '    //        PAUSE issue map                                            1     '
  510. Writeln '    //        PAUSE OPERA/PC                                                   '
  511. Writeln '    0D05D                                                          1           '
  512. Writeln '    0E                                                                   1     '
  513. Writeln '    1I00d     ready for communications                                         '
  514. Writeln '    1Q34It    work on 00e                S.....S                               '
  515. Writeln '    1Q34I     work on 00e                                                      '
  516. Writeln '    1Q40A     on 00e                                               2           '
  517. Writeln '    1S02D     invalid statement                                                '
  518. Writeln '    1Z00A                                                                      '
  519. Writeln '    3A12A                                                                      '
  520. Writeln '    8V96D                                .MTWTF.                               '
  521. Writeln '    8v96d                                .MTWTF.  09:00  17:00                 '
  522. Writeln '                                                                               '
  523. Write   '                                                                               '
  524. Wait 100
  525.  
  526. BoxHeader 'Console Message Selection'
  527. TextWindow
  528. DrawBox 38 12 42 12
  529. TextColor Yellow Blue
  530. Writeln '    '
  531. Writeln ' The Operator Console Selection Panel'
  532. Writeln ' shows message intercepts currently'
  533. Writeln ' defined within CA-OPERA/PC.'
  534. Writeln '    '
  535. Writeln ' A full-screen editor is provided for'
  536. Writeln ' adding new entries or modifying
  537. Writeln ' existing entries.'
  538.  
  539.  
  540. AskYesNo
  541. if YesNo = 'No' then ExitMenu
  542.     EraseTopWindow
  543.  
  544. Wait 300
  545.  
  546.  
  547.   ExplodeDelay 10
  548.   NoBoxBorder
  549.   BoxInsideColor Grey Blue
  550.   DrawBox 18 4 62 20
  551.   TextColor Black Grey
  552. Writeln 'CAPC1011                 Operator Console Message Entry   '
  553. TextColor White Cyan
  554. Writeln '────────────────────────────── Selection Criteria ────────'
  555. Writeln ' Message ID ===> 0407DD44                                 '
  556. Writeln ' Scan Text  ===> UNABLE TO LOCATE PAYROLL                 '
  557. Writeln '                 SMTWTFS              Begin    End        '
  558. Writeln ' Days       ===> YYYYYYY    Time ===> 17:00 - 22:00 (HH:MM'
  559. Writeln ' Deferred   ===>      Minutes                             '
  560. Writeln ' Suspended  ===>      Minutes                             '
  561. Writeln '────────────────────────────── Action Definitions ────────'
  562. Writeln ' Keyword  ===> PAGE       Text ===> Payroll &4 &5         '
  563. Writeln '          ===> OPCMD           ===> CANCEL \enter\        '
  564. Writeln '          ===>                 ===>                       '
  565. Writeln '          ===>                 ===>                       '
  566. Writeln '          ===>                 ===>                       '
  567. Writeln '                                                          '
  568. Writeln ' Reason   ===>                                            '
  569. Writeln '          ===>                                            '
  570. TextColor Black Grey
  571. Write   'F1-Help     F3-Save    F4-Quit     F6-Copy    F7-Move     '
  572. Wait 250
  573.  
  574.  
  575. BoxHeader 'Console Message Selection'
  576. TextWindow
  577. DrawBox 38 12 42 12
  578. TextColor Yellow Blue
  579. Writeln '    '
  580. Writeln ' The Operator Console Message Entry'
  581. Writeln ' Panel is used to define selection'
  582. Writeln ' criteria for messages and the action'
  583. Writeln ' to be take by CA-OPERA/PC.
  584. Writeln '    '
  585. Writeln '    '
  586. Writeln '    '
  587.  
  588. AskYesNo
  589. if YesNo = 'No' then ExitMenu
  590.     EraseTopWindow
  591.  
  592. BoxHeader 'Console Message Selection'
  593. TextWindowLow
  594. Writeln ' Criteria such as:'
  595. Writeln ' Message ID, Scan Text, Day of Week'
  596. Writeln ' and Time of Day can be defined for'
  597. Writeln ' Message selection.'
  598. Writeln ' Unique actions can be defined for'
  599. Writeln ' each selection criteria.'
  600. Writeln '    '
  601. Writeln ' Actions can be:
  602. Writeln ' Operator command(s), CA-OPERA/PC'
  603. Writeln ' command(s) or the invocation of a'
  604. Writeln ' CA-OPERA/PC script.'
  605. Writeln ' (More about SCRIPTs later...)'
  606.  
  607. AskYesNo
  608. if YesNo = 'No' then ExitMenu
  609.     EraseTopWindow
  610. Wait 250
  611.     EraseTopWindow
  612. Wait 250
  613.     EraseTopWindow
  614. Wait 100
  615.  
  616.  
  617. GotoXY 1 1
  618. TextColor Black Grey
  619. Write ' Operator Console Selection'
  620. Wait 100
  621.  
  622.  
  623. :SkipMore
  624.  
  625. MoveCount = 1
  626. While MoveCount < 5
  627.   GotoXY 3 2
  628.   TextColor Yellow Red
  629.   Write 'System Console Selection'
  630.   Wait 40
  631.   GotoXY 3 2
  632.   TextColor Black Grey
  633.   Write 'System Console Selection'
  634.   Wait 40
  635.   MoveCount = MoveCount + 1
  636. EndWhile
  637.   GotoXY 3 2
  638.   TextColor Yellow Red
  639.   Write 'System Console Selection'
  640. Wait 150
  641.  
  642. BoxHeader 'Console Message Selection'
  643. TextWindowLow
  644. Writeln '       '
  645. Writeln ' Definitions for the System Console'
  646. Writeln ' message selection and action are'
  647. Writeln ' entered using the same panel-driven'
  648. Writeln ' design used for Operator Console'
  649. Writeln ' message selection.'
  650. Writeln '    '
  651. Writeln '    '
  652. Writeln '    '
  653. Writeln '    '
  654. Writeln '    '
  655. Writeln '    '
  656.  
  657. AskYesNo
  658. if YesNo = 'No' then ExitMenu
  659.     EraseTopWindow
  660.  
  661.  
  662. FullWindow
  663. FullWindow
  664. TextColor White Blue
  665. Writeln '                             *GENERAL SELECTION*    (C) IBM CORPORATION 1985   '
  666. Writeln '                                                                               '
  667. Writeln '       Y TIME OF DAY-ENABLE                    F CONFIGURATION/REMOTE          '
  668. Writeln '                                                                               '
  669. Writeln '                                               L PROGRAM LOAD                  '
  670. Writeln '                                                                               '
  671. Writeln '       S STORE STATUS                          A COMPARE/TRACE                 '
  672. Writeln '                                                                               '
  673. Writeln '       N NORMAL SYSTEM RESET                   K CHECK CONTROL                 '
  674. Writeln '       C CLEAR SYSTEM RESET                    O OPERATION RATE                '
  675. Writeln '                                                                               '
  676. Writeln '       R RESTART                               D DISPLAY/ALTER                 '
  677. Writeln '                                                                               '
  678. Writeln '       T TARGET PU-SWITCH                      B BLOCK/PATCH                   '
  679. Writeln '                                                                               '
  680. Writeln '       P PROBLEM ANALYSIS                      E ERROR DISPLAYS                '
  681. Writeln '                                                                               '
  682. Writeln '       Z RETURN TO PROG SYS                                                    '
  683. Writeln '                                                                               '
  684. Writeln ' COMMAND: Q                                       ==>                          '
  685. Writeln ' >PU1         WAIT                        OPERATING                            '
  686. Writeln '  PU0         WAIT                        OPERATING                            '
  687. Writeln '                                                 XA    4381                    '
  688. Writeln ' 309 9309                    CONSOLE I/O WAITING                               '
  689. Write   ' MANUAL CONTROL                                                                '
  690. Wait 300
  691.  
  692.  
  693. BoxHeader 'System Console'
  694. TextWindowLow
  695. Writeln '                                     '
  696. Writeln ' Shown here is the GENERAL SELECTION '
  697. Writeln ' panel for a 43xx system which would '
  698. Writeln ' be presented after power-on.        '
  699. Writeln ' CA-OPERA/PC provides normal access  '
  700. Writeln ' to this panel for IPL and system    '
  701. Writeln ' maintenance functions but its real  '
  702. Writeln ' power becomes evident when it is    '
  703. Writeln ' allowed to detect a power-on state  '
  704. Writeln ' and then perform the IPL procedure  '
  705. Writeln ' automatically.                        '
  706.  
  707. AskYesNo
  708. if YesNo = 'No' then ExitMenu
  709.     EraseTopWindow
  710.     EraseTopWindow
  711.  
  712. FullWindow
  713. TextColor White Blue
  714. Writeln '                                                           12 Aug 89  21:45:24 '
  715. Writeln ' System Activity Display - SystemD 3090-300E         (SAD  4)                  '
  716. Writeln ' Prob=* Supv=@       0----1----2----3----4----5----6----7----8----9----10      '
  717. Writeln ' CP0                 *@@@@@                                            >99     '
  718. Writeln ' CP1                 *@@@@@                                            >99     '
  719. Writeln ' CP2                 *@@                                                       '
  720. Writeln ' High Usage          0----1----2----3----4----5----6----7----8----9----10      '
  721. Writeln ' CHPID 01            @                                                         '
  722. Writeln ' CHPID 06            @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@                  '
  723. Writeln ' CHPID 07            @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@             '
  724. Writeln ' CHPID 08            @                                                         '
  725. Writeln ' CHPID 13            @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@                    '
  726. Writeln ' CHPID 16            @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@                     '
  727. Writeln ' CHPID 18            @                                                         '
  728. Writeln ' CHPID 19                                                                      '
  729. Writeln ' CHPID 1A                                                                      '
  730. Writeln ' CHPID 1B                                                                      '
  731. Writeln ' CHPID 1C                                                                      '
  732. Writeln ' CHPID 1D                                                                      '
  733. Writeln ' CHPID 1E                                                                      '
  734. Writeln ' CHPID 1F                                                                      '
  735. Writeln '                                                                               '
  736. Write   ' COMMAND ==>                                                                   '
  737. Wait 300
  738.  
  739. BoxHeader 'System Console'
  740. TextWindowLow
  741. Writeln ' On 3090 systems, CA-OPERA/PC can    '
  742. Writeln ' switch between the operator console '
  743. Writeln ' and the System Activity Display     '
  744. Writeln ' (SAD) screens with a single key     '
  745. Writeln ' press; all this while operator      '
  746. Writeln ' console scanning continues without  '
  747. Writeln ' interruption. Because CA-OPERA/PC    '
  748. Writeln ' is a PC rather than a terminal, any '
  749. Writeln ' screen displayed can be printed on  '
  750. Writeln ' an attached printer for instant     '
  751. Writeln ' hardcopy output.                    '
  752.  
  753. AskYesNo
  754. if YesNo = 'No' then ExitMenu
  755.     EraseTopWindow
  756.     EraseTopWindow
  757.  
  758.  
  759. FullWindow
  760. TextColor White Blue
  761. Writeln '  20:36:58                                                        (20025)  '
  762. Writeln '    ************************ PRIORITY MESSAGE **************************   '
  763. Writeln '    *                                                                  *   '
  764. Writeln '    *                     Power/Thermal Warning                        *   '
  765. Writeln '    *                                                                  *   '
  766. Writeln '    * Intended Console:  All                                           *   '
  767. Writeln '    *                                                                  *   '
  768. Writeln '    * Detailed Information:  Low water level has been detected in      *   '
  769. Writeln '    *                        the side 0 coolant distribution frame.    *   '
  770. Writeln '    *                        More system water is required.            *   '
  771. Writeln '    *                                                                  *   '
  772. Writeln '    * System Action:  The system continues.  However, continued        *   '
  773. Writeln '    *                 operation cannot be guaranteed since further     *   '
  774. Writeln '    *                 loss of water may result in all or part of the   *   '
  775. Writeln '    *                 system being powered off.                        *   '
  776. Writeln '    *                                                                  *   '
  777. Writeln '    * User Action:  Follow local procedures for reporting a            *   '
  778. Writeln '    *               processor complex problem.                         *   '
  779. Writeln '    *                                                                  *   '
  780. Writeln '    *                                                                  *   '
  781. Writeln '    *                                                                  *   '
  782. Write   '    ********************************************************************   '
  783. Wait 300
  784.  
  785. BoxHeader 'System Console'
  786. TextWindowLow
  787. Writeln ' CA-OPERA/PC can recognize PRIORITY  '
  788. Writeln ' MESSAGES such as this and ensure    '
  789. Writeln ' that the proper personnel are       '
  790. Writeln ' notified that a serious situation   '
  791. Writeln ' has occured which requires immediate'
  792. Writeln ' attention.                          '
  793. Writeln ' Arrangements might be made with your'
  794. Writeln ' hardware vendor to accept coded     '
  795. Writeln ' page information should an event    '
  796. Writeln ' such as this occur.                 '
  797. Writeln '                                     '
  798.  
  799. AskYesNo
  800. if YesNo = 'No' then ExitMenu
  801.     EraseTopWindow
  802.     EraseTopWindow
  803.     EraseTopWindow
  804.  
  805. Wait 200
  806.     EraseTopWindow
  807.     EraseTopWindow
  808. Wait 200
  809. RollWindow 3
  810. MoveCount = 1
  811. While MoveCount < 5
  812.   GotoXY 2 1
  813.   TextColor White Green
  814.   Write 'Paging'
  815.   GotoXY 10 1
  816.   TextColor White Green
  817.   Write ' Bob001 '
  818.   Wait 40
  819.   GotoXY 2 1
  820.   TextColor Black Grey
  821.   Write 'Paging   Bob001 '
  822.   Wait 40
  823.   MoveCount = MoveCount + 1
  824. EndWhile
  825.   GotoXY 2 1
  826.   TextColor White Green
  827.   Write 'Paging'
  828.   GotoXY 10 1
  829.   TextColor White Green
  830.   Write ' Bob001 '
  831.  
  832. BoxHeader = 'Paging'
  833. TextWindowBig
  834. Writeln " The PAGING facility provides a simple yet reliable"
  835. Writeln " method of ensuring that the proper personnel are notified"
  836. Writeln " in the event of a system failure or other key event defined"
  837. Writeln " to CA-OPERA/PC.  The PAGING system's many page definition"
  838. Writeln " options address the complexities of communication in today's"
  839. Writeln " data center."
  840.  
  841. AskYesNo
  842. if YesNo = 'No' then ExitMenu
  843.     EraseTopWindow
  844.  
  845. :Jumphere
  846.  
  847. FullWindow
  848. Write 'CAPC1000                     Primary Selection Menu                  CA-OPERA/PC'
  849. GotoXY 1 24
  850. Write 'F1-Help                             F3-Exit                              F4-Quit'
  851. TextColor White Blue
  852. GotoXY 1 22
  853. Write '         Hilight the required CA-OPERA/PC function, then press ENTER'
  854.  
  855. MaintMenu                     ;CA-OPERA/PC Maint Menu  **************
  856.  
  857. MoveCount = 1
  858. While MoveCount < 5
  859.   GotoXY 4 5
  860.   TextColor Yellow Red
  861.   Write                    'Pager Entry Definitions'
  862.   Wait 40
  863.   GotoXY 4 5
  864.   TextColor Black Grey
  865.   Write                    'Pager Entry Definitions'
  866.   Wait 40
  867.   MoveCount = MoveCount + 1
  868. EndWhile
  869.   GotoXY 4 5
  870.   TextColor Yellow Red
  871.   Write                    'Pager Entry Definitions'
  872. Wait 150
  873.  
  874.  
  875. FullWindow
  876. Write 'CAPC1040                    Pager Entry Definitions                  CA-OPERA/PC'
  877. GotoXY 1 24
  878. Write 'F1-Help       F3-Save        F4-Quit       F5-Add        F6-Copy       F9-Delete'
  879. GotoXY 1 2
  880. TextColor Grey Blue
  881. Writeln '                                                                              '
  882. Writeln '      Pager Id  Phone Number / Message                     Count  Interval    '
  883. Writeln '      ────────  ────────────────────────────────────────   ────── ────────    '
  884. Writeln '      Bob       111-2345,,,,,,%#                                              '
  885. TextColor White Blue
  886. Writeln '     Bob001    111-2345,,,,,,001%#                                           '
  887. TextColor Grey Blue
  888. Writeln '      Bob002    111-2345,,,,,,002%#                                           '
  889. Writeln '      Bob003    111-2345,,,,,,003%#                                           '
  890. Writeln '      Kevin     111-3384,,,,,,%#                                              '
  891. Writeln '      DaveS     111-3396,,,,,,%#                                              '
  892. Writeln '      Scott     111-3322,,,,,,%#                                              '
  893. Writeln '      Alan      111-3315,,,,,,%#                                              '
  894. Writeln '      Howie     111-3369,,,,,,%#                                              '
  895. Writeln '      SkyPage   8004445555,,,,,,,78789#%##                                    '
  896. Wait 300
  897.  
  898. BoxHeader = 'Pager Entry Definitions'
  899. TextWindowBig
  900. Writeln " A Page Entry is used to define each individual to be "
  901. Writeln " paged by CA-OPERA/PC. Each individual may have several"
  902. Writeln " different page numbers and paging options based on day-of-week"
  903. Writeln " and time-of-day, if required. In addition to the pager number,"
  904. Writeln " message variables, default page count and interval between"
  905. Writeln " page attempts may be defined here."
  906.  
  907. AskYesNo
  908. if YesNo = 'No' then ExitMenu
  909.     EraseTopWindow
  910. Wait 150
  911.  
  912. BoxHeader = 'Pager Entry Definitions'
  913. TextWindowBig
  914. Writeln " For paging systems which support message display in addition"
  915. Writeln " to audio alert, the ability of CA-OPERA/PC to send a message"
  916. Writeln " which describes the nature of a problem or the on-going status"
  917. Writeln " of recovery can mean that notified personnel need not rush to"
  918. Writeln " find a phone in the event of a page but instead, stay informed"
  919. Writeln " via periodic pager message updates."
  920.  
  921. AskYesNo
  922. if YesNo = 'No' then ExitMenu
  923.     EraseTopWindow
  924. Wait 150
  925. EraseTopWindow
  926. Wait 200
  927.  
  928.   GotoXY 4 5
  929.   TextColor Black Grey
  930.   Write                    'Pager Entry Definitions'
  931. MoveCount = 1
  932. While MoveCount < 5
  933.   GotoXY 4 4
  934.   TextColor Yellow Red
  935.   Write                    'Pager List Maintenance'
  936.   Wait 40
  937.   GotoXY 4 4
  938.   TextColor Black Grey
  939.   Write                    'Pager List Maintenance'
  940.   Wait 40
  941.   MoveCount = MoveCount + 1
  942. EndWhile
  943.   GotoXY 4 4
  944.   TextColor Yellow Red
  945.   Write                    'Pager List Maintenance'
  946. Wait 250
  947.  
  948. FullWindow
  949. Write 'CAPC1030                     Pager List Maintenance                  CA-OPERA/PC'
  950. GotoXY 1 24
  951. Write 'F1-Help        F3-Save       F4-Quit        F5-Add       F6-Copy       F9-Delete'
  952. GotoXY 1 2
  953.  
  954. TextColor Grey Blue
  955.  
  956. Writeln '     List ID    Remarks                          Days      Begin   End'
  957. Writeln '     ────────   ──────────────────────────────   ───────   ─────   ───── '
  958. Writeln '     Support    off hour support, weekdays       .MTWTF.   17:00 - 20:00 '
  959. Writeln '     Support    Daytime Support                                  -'
  960. TextColor White Blue
  961. Writeln '    Payroll    Payroll Data Base Administrator  SMTWTFS   17:00 - 22:00 '
  962. TextColor Grey Blue
  963. Writeln '     Network    Network Support                                  -'
  964. Wait 250
  965.  
  966. BoxHeader =  'Pager List Maintenance'
  967. TextWindowBig
  968. Writeln " The target of a page by CA-OPERA/PC may be defined as a "
  969. Writeln " LIST when a single event would require that a number of"
  970. Writeln " individuals be notified. The ability to build and modify"
  971. Writeln " Page Lists allows your organization to build a complex"
  972. Writeln " notification and warning system which can be triggered by"
  973. Writeln " any defined system event."
  974.  
  975. AskYesNo
  976. if YesNo = 'No' then ExitMenu
  977.     EraseTopWindow
  978. Wait 250
  979.  
  980.   ExplodeDelay 10
  981.   NoBoxBorder
  982.   BoxInsideColor Grey Blue
  983.   DrawBox 18 4 62 20
  984. TextColor Black Grey
  985. Writeln 'CAPC1031                  Pager List Definition Entry     '
  986. TextColor White Cyan
  987. Writeln '                                                          '
  988. Writeln ' List ID    ===> Payroll                                  '
  989. Writeln ' Remarks    ===> Payroll Data Base Administrator          '
  990. Writeln '                 SMTWTFS                   Begin    End   '
  991. Writeln ' Days       ===> YYYYYYY         Time ===> 17:00 - 22:00  '
  992. Writeln '                                                          '
  993. Writeln ' Pager Id  ===> Bob001     Count  ===> 3       Interval  ='
  994. Writeln '           ===> Kevin             ===> 3                 ='
  995. Writeln '           ===> Scott             ===> 3                 ='
  996. Writeln '           ===>                   ===>                   ='
  997. Writeln '           ===>                   ===>                   ='
  998. Writeln '           ===>                   ===>                   ='
  999. Writeln '           ===>                   ===>                   ='
  1000. Writeln '           ===>                   ===>                   ='
  1001. Writeln '                                                          '
  1002. Writeln '                                                          '
  1003. TextColor Black Grey
  1004. Write   'F1-Help     F3-Save    F4-Quit     F6-Copy    F7-Move     '
  1005. Wait 300
  1006.  
  1007. BoxHeader = 'Pager List Definition Entry'
  1008. TextWindowBig
  1009. Writeln " Page Lists may be defined for any combination of time"
  1010. Writeln " and day criteria. Page ID may be any valid Page ID defined"
  1011. Writeln " using the Page Entry Definition Panel which you saw earlier."
  1012. Writeln " Overrides to default Pager ID Count and Interval can be"
  1013. Writeln " defined for any Page List."
  1014. Writeln "             "
  1015.  
  1016. AskYesNo
  1017. if YesNo = 'No' then ExitMenu
  1018.     EraseTopWindow
  1019.     Wait 200
  1020.     EraseTopWindow
  1021.     Wait 250
  1022.     EraseTopWindow
  1023.     Wait 250
  1024.  
  1025.   GotoXY 4 4
  1026.   TextColor Black Grey
  1027.   Write                    'Pager List Maintenance'
  1028. MoveCount = 1
  1029. While MoveCount < 5
  1030.   GotoXY 2 7
  1031.   TextColor Yellow Red
  1032.   Write                    'Dialup Access Configuration'
  1033.   Wait 40
  1034.   GotoXY 2 7
  1035.   TextColor Black Grey
  1036.   Write                    'Dialup Access Configuration'
  1037.   Wait 40
  1038.   MoveCount = MoveCount + 1
  1039. EndWhile
  1040.   GotoXY 2 7
  1041.   TextColor Yellow Red
  1042.   Write                    'Dialup Access Configuration'
  1043. Wait 250
  1044.  
  1045.  
  1046. BoxHeader = 'Dialup Access'
  1047. TextWindowBig
  1048. Writeln " One of the most powerful features of CA-OPERA/PC is"
  1049. Writeln " the Dialup Access Facility. This feature allows a user of"
  1050. Writeln " CA-OPERA/PC to gain access to all of the system control and"
  1051. Writeln " monitoring functions of CA-OPERA/PC using the optional "
  1052. Writeln " laptop computer and standard telephone lines."
  1053. Writeln "             "
  1054.  
  1055. AskYesNo
  1056. if YesNo = 'No' then ExitMenu
  1057.     EraseTopWindow
  1058.     Wait 200
  1059.  
  1060.  
  1061.  
  1062. BoxHeader = 'Dialup Access'
  1063. TextWindowBig
  1064. Writeln " CA-OPERA/PC employs one of the most secure methods of permitting"
  1065. Writeln " dialup access in use today. Software controlled (with hardware"
  1066. Writeln " backup) dial-back and double password verification provides"
  1067. Writeln " a high degree of confidence that any link made to CA-OPERA/PC"
  1068. Writeln " is permitted to authorized personnel ONLY."
  1069. Writeln "             "
  1070.  
  1071. AskYesNo
  1072. if YesNo = 'No' then ExitMenu
  1073.     EraseTopWindow
  1074.     Wait 200
  1075.  
  1076. FullWindow
  1077. Write   'CAPC1050                  Dialup Access Configuration                CA-OPERA/PC'
  1078. GotoXY 1 24
  1079. Write   'F1-Help        F3-Save       F4-Quit        F5-Add       F6-Copy       F9-Delete'
  1080. GotoXY 1 2
  1081.  
  1082. TextColor Grey Blue
  1083.  
  1084. Writeln '                                                                            '
  1085. Writeln '     Caller    Access    Dialback String                           DBAccess '
  1086. Writeln '     ────────  ────────  ────────────────────────────────────────  ──────── '
  1087. Writeln '     Supptday  12345678  111-2222                                  87654321 '
  1088. Writeln '     Supptnit  12345678  444-5555                                  87654321 '
  1089. TextColor White Blue
  1090. Writeln '    Hotsite   87654321  333-8888                                  12345678 '
  1091. TextColor Grey Blue
  1092. Writeln '                                                                            '
  1093. Wait 250
  1094.  
  1095.  
  1096.  
  1097. BoxHeader = 'Dialup Access Configuration'
  1098. TextWindowBig
  1099. Writeln " Each authorized Caller is identified by a unique ID, Dialback   "
  1100. Writeln " telephone number, Access and Dialback Passwords."
  1101. Writeln " The ability to define multiple IDs and telephone numbers allows"
  1102. Writeln " a single caller to gain access from several locations. The "
  1103. Writeln " telephone number used for dial-back is determined by the Caller"
  1104. Writeln " ID used on initial access."
  1105.  
  1106. AskYesNo
  1107. if YesNo = 'No' then ExitMenu
  1108.     EraseTopWindow
  1109.     Wait 200
  1110.     EraseTopWindow
  1111.  
  1112.     Wait 250
  1113.  
  1114.   GotoXY 2 7
  1115.   TextColor Black Grey
  1116.   Write                    'Dialup Access Configuration'
  1117. MoveCount = 1
  1118. While MoveCount < 5
  1119.   GotoXY 7 12
  1120.   TextColor Yellow Red
  1121.   Write                    'Script Generation'
  1122.   Wait 40
  1123.   GotoXY 7 12
  1124.   TextColor Black Grey
  1125.   Write                    'Script Generation'
  1126.   Wait 40
  1127.   MoveCount = MoveCount + 1
  1128. EndWhile
  1129.   GotoXY 7 12
  1130.   TextColor Yellow Red
  1131.   Write                    'Script Generation'
  1132. Wait 250
  1133.  
  1134. BoxHeader = 'CA-OPERA/PC Scripts'
  1135. TextWindowTop
  1136. Writeln " The ability of CA-OPERA/PC to interactively 'LEARN' a complex   "
  1137. Writeln " series of message requests and responses and save them in a"
  1138. Writeln " 'SCRIPT' can have a profound effect on how quickly CA-OPERA/PC"
  1139. Writeln " can become an integral part of your data center automation plan."
  1140. Writeln "                                                                 "
  1141. Writeln "                                                                 "
  1142.  
  1143. AskYesNo
  1144. if YesNo = 'No' then ExitMenu
  1145.     EraseTopWindow
  1146.     Wait 200
  1147.  
  1148. BoxHeader = 'CA-OPERA/PC Scripts'
  1149. TextWindowBig
  1150. Writeln " CA-OPERA/PC Scripts can be built interactively for any operator "
  1151. Writeln " task which has a fixed structure of messages and responses.     "
  1152. Writeln " Examples of this type of task might include: IML/IPL, subsystem "
  1153. Writeln " start-up/shut-down or job recovery procedures.
  1154. Writeln "                                                                 "
  1155. Writeln "                                                                 "
  1156.  
  1157. AskYesNo
  1158. if YesNo = 'No' then ExitMenu
  1159.     EraseTopWindow
  1160.     Wait 200
  1161.  
  1162.  
  1163. FullWindow
  1164. Write 'CAPC4000                         Script Editor                         CA-OPERA/PC'
  1165. GotoXY 1 24
  1166. Write 'F1-Hlp  F2-Mrk  F3-Sve  F4-Quit  F5-Add  F6-Ins  F7-Cpy  F8-Mve  F9-Del  F10-Fnd'
  1167. GotoXY 1 2
  1168.  
  1169. TextColor Grey Blue
  1170. Writeln 'Status OPcon  "Not Active" 79                                              '
  1171. Writeln 'OPscan off                                                                 '
  1172. Writeln 'SYSscan off                                                                '
  1173. Writeln 'TimeOut 360                               ;set Timeout value               '
  1174. Writeln 'delay 2                                   ;set inter command delay         '
  1175. Writeln 'Select OPcon                              ;4381 console                    '
  1176. Writeln 'key \key56\                               ;mode select                     '
  1177. Writeln 'Lookfor "*GENERAL SELECTION*"                                              '
  1178. Writeln 'key "l\enter\"                            ;select load screen              '
  1179. Writeln 'Lookfor "PROGRAM LOAD"                                                     '
  1180. Writeln 'key "l\enter\"                            ;start the IPL                   '
  1181. Writeln '; now start MVS                                                            '
  1182. Writeln 'lookfor "IEA101A"                                                          '
  1183. Writeln 'key "\enter\ 2                                                             '
  1184. Writeln 'lookfor "IEA347A"                                                          '
  1185. Writeln 'key "\enter\  2                                                            '
  1186. Writeln 'lookfor "IEA888A"                                                          '
  1187. Writeln 'key "r 00,u\enter\"  2                                                     '
  1188. Writeln 'lookfor "CSV210I"                                                          '
  1189. Writeln 'key "s jes2,parm=noreq\enter\"                                             '
  1190. Writeln 'Status OPcon  Active  47                                                   '
  1191. Writeln 'OPscan on                                                                  '
  1192. wait 250
  1193.  
  1194. BoxHeader = 'CA-OPERA/PC Scripts'
  1195. TextWindowBig
  1196. Writeln " Although CA-OPERA/PC includes a complete Script Language and a  "
  1197. Writeln " full-screen Script Editor, most scripts, including the one seen "
  1198. Writeln " here, will be built interactively. The ability to edit an       "
  1199. Writeln " existing script means that minor changes to an operations
  1200. Writeln " procedure such as the change in IPL address can be affected     "
  1201. Writeln " quickly without requiring that the procedure be re-LEARNED.     "
  1202.  
  1203. AskYesNo
  1204. if YesNo = 'No' then ExitMenu
  1205.     EraseTopWindow
  1206.     Wait 200
  1207.     EraseTopWindow
  1208.     Wait 150
  1209.  
  1210.   GotoXY 7 12
  1211.   TextColor Black Grey
  1212.   Write                    'Script Generation'
  1213. MoveCount = 1
  1214. While MoveCount < 5
  1215.   GotoXY 9 14
  1216.   TextColor Yellow Red
  1217.   Write                    'Replay Script'
  1218.   Wait 40
  1219.   GotoXY 9 14
  1220.   TextColor Black Grey
  1221.   Write                    'Replay Script'
  1222.   Wait 40
  1223.   MoveCount = MoveCount + 1
  1224. EndWhile
  1225.   GotoXY 9 14
  1226.   TextColor Yellow Red
  1227.   Write                    'Replay Script'
  1228. Wait 250
  1229.  
  1230. BoxHeader = 'CA-OPERA/PC Scripts'
  1231. TextWindowTop
  1232. Writeln " Script REPLAY can be used to test the validity of learned       "
  1233. Writeln " scripts against the session recorded during LEARN mode.         "
  1234. Writeln " This test facility for complex scripts ensures that when script "
  1235. Writeln " files are envoked in a production environment, they perform
  1236. Writeln " their intended function error-free.                             "
  1237. Writeln "                                                                 "
  1238.  
  1239. AskYesNo
  1240. if YesNo = 'No' then ExitMenu
  1241.     EraseTopWindow
  1242.     Wait 200
  1243.  
  1244.   GotoXY 9 14
  1245.   TextColor Black Grey
  1246.   Write                    'Replay Script'
  1247. MoveCount = 1
  1248. While MoveCount < 5
  1249.   GotoXY 6 16
  1250.   TextColor Yellow Red
  1251.   Write                    'View/Print Log File'
  1252.   Wait 40
  1253.   GotoXY 6 16
  1254.   TextColor Black Grey
  1255.   Write                    'View/Print Log File'
  1256.   Wait 40
  1257.   MoveCount = MoveCount + 1
  1258. EndWhile
  1259.   GotoXY 6 16
  1260.   TextColor Yellow Red
  1261.   Write                    'View/Print Log File'
  1262. Wait 150
  1263.  
  1264.  
  1265. BoxHeader = 'CA-OPERA/PC Log File'
  1266. TextWindowTop
  1267. Writeln " Because of the critical nature of console operations and        "
  1268. Writeln " because CA-OPERA/PC provides remote access facilities,          "
  1269. Writeln " a Log File of all maintenance, pager communications and remote  "
  1270. Writeln " access activity is built automatically. This file can be viewed
  1271. Writeln " on-screen or printed as a permanent audit record.               "
  1272. Writeln "                                                                 "
  1273.  
  1274. AskYesNo
  1275. if YesNo = 'No' then ExitMenu
  1276.     EraseTopWindow
  1277.     Wait 200
  1278.     EraseTopWindow
  1279.     EraseTopWindow
  1280.  
  1281.  
  1282. BoxHeader 'CA-OPERA/PC Summary'
  1283. TextWindowHigh
  1284. Writeln
  1285. Writeln ' Automates operations tasks '
  1286. Writeln '   without mainframe dependencies'
  1287. Writeln
  1288. Writeln ' Monitors Operator and System Console'
  1289. Writeln
  1290. Writeln ' Automates IML/IPL and shutdown'
  1291. Writeln
  1292. Writeln ' Facilitates operation and diagnostics'
  1293. Writeln '   from remote mainframe'
  1294. Writeln
  1295. Writeln ' Automatic telephone page notification'
  1296.  
  1297. AskYesNo
  1298. if YesNo = 'No' then ExitMenu
  1299.     EraseTopWindow
  1300.  
  1301. BoxHeader 'CA-OPERA/PC Summary'
  1302. TextWindowLow
  1303. Writeln
  1304. Writeln ' Secure dial-up access for remote'
  1305. Writeln '   operation and diagnostics'
  1306. Writeln
  1307. Writeln ' Complete activity log and reporting'
  1308. Writeln '   capabilities'
  1309. Writeln
  1310. Writeln ' Extended Script facilities for '
  1311. Writeln '   complex or lengthy operator tasks'
  1312. Writeln
  1313. Writeln ' On-screen HELP panels available'
  1314. Writeln '  for all functions and commands'
  1315.  
  1316. AskYesNo
  1317. if YesNo = 'No' then ExitMenu
  1318.     EraseTopWindow
  1319. Wait 200
  1320. EraseTopWindow
  1321. EraseTopWindow
  1322. EraseTopWindow
  1323. EraseTopWindow
  1324. EraseTopWindow
  1325. EraseTopWindow
  1326.  
  1327. TextColor White Black
  1328. ClearScreen
  1329.  
  1330. TextWindow
  1331. TextColor White Blue
  1332. Drawbox 36 19 44 4
  1333. Writeln ' C O M P U T E R  A S S O C I A T E S (R)'
  1334. Write   '       Software superior by design.'
  1335. Wait 500
  1336.  
  1337. MoveCount = 1
  1338. While MoveCount < 18
  1339.       MoveWindow -1 -1
  1340.       MoveCount = MoveCount + 1
  1341.       Wait 1
  1342. EndWhile
  1343. Wait 400
  1344.  
  1345. DrawBox 40 20 35 3
  1346. WriteCenter 'CA-OPERA/PC DEMONSTRATION'
  1347. Wait 200
  1348.  
  1349. MoveCount = 1
  1350. While MoveCount < 13
  1351.       MoveWindow -1 -1
  1352.       MoveCount = MoveCount + 1
  1353.       Wait 1
  1354. EndWhile
  1355. MoveCount = 1
  1356. While MoveCount < 5
  1357.       MoveWindow -1 1
  1358.       MoveCount = MoveCount + 1
  1359.       Wait 1
  1360. EndWhile
  1361. Wait 200
  1362.  
  1363.  
  1364. TextWindow
  1365. DrawBox 25 20 35 4
  1366. TextColor White Blue
  1367.   Writeln '   '
  1368.   Write   '  Press SpaceBar to End Demo  '
  1369.  
  1370. WaitForSpace
  1371.     ExitMenu
  1372.